home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinHelp Colors 1.xpl < prev    next >
Text File  |  2001-11-27  |  3KB  |  107 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Built in Windows Apps\Windows Help\Colors"
  5. "NAME"="Jump Color"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Set Color"
  8. "TEXT 2"="Reset Color"
  9. "DESCRIPTION 1"="This plug-in lets you change the colors used by Windows Help."
  10. "DESCRIPTION 2"="The jump color is used for hyperlinks to other topics in the help file."
  11. "DESCRIPTION 3"="NOTE: This setting applies to the old WinHelp (*.hlp) format, not the new HTML Help format (*.chm). The latter shares its link settings with Internet Explorer."
  12. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for this tip!"
  13. "VERSION"="1.01"
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. sF="WIN.INI"
  19. sS="Windows Help"
  20. sV="JumpColor"
  21.  
  22. SUB Plugin_Initialize
  23.  ' Ripped directly from XQ Hot Tracking Color 1.xpl
  24.  Call SetUIElement(1,"Red")   '255 0 0
  25.  Call SetUIElement(2,"Lime") '0 255 0
  26.  Call SetUIElement(3,"Blue")  '0 0 255
  27.  Call SetUIElement(4,"Yellow")'255 255 0
  28.  Call SetUIElement(5,"White") '255 255 255
  29.  Call SetUIElement(6,"Black") '0 0 0
  30.  Call SetUIElement(7,"Olive") '80 80 0
  31.  Call SetUIElement(8,"Green") '0 80 0
  32.  Call SetUIElement(9,"Maroon") '80 0 0
  33.  Call SetUIELement(10,"Navy") '0 0 80
  34.  Call SetUIElement(11,"Purple") '80 0 80
  35.  Call SetUIElement(12,"Gray") '80 80 80
  36.  Call SetUIElement(13,"Aqua") '0 255 255
  37.  Call SetUIElement(14,"Fuschia") '255 0 255
  38.  Call SetUIElement(15,"Silver") '192 192 192
  39.  Call SetUIElement(16,"Teal") '0 80 80
  40.  Call SetUIElement(17,"CUSTOM...")
  41. END SUB
  42.  
  43. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  ' START Hot Tracking code
  45.  ' Unless marked otherwise, the Hot Tracking code is being used, since it saves time :)
  46.  If ElementIndex=1 then
  47.   if ElementSubIndex=0 then 
  48.    Call MsgWarning("No item selected - please select an item first.")
  49.    Exit sub
  50.   end if
  51.  
  52.   s=""
  53.  
  54.   Select Case ElementSubIndex
  55.    Case 1 'Red
  56.     s="255 0 0"
  57.    Case 2 'Lime
  58.     s="0 255 0"
  59.    Case 3 'Blue
  60.     s="0 0 255"
  61.    Case 4 'Yellow
  62.     s="255 255 0"
  63.    Case 5 'White
  64.     s="255 255 255"
  65.    Case 6 'Black
  66.     s="0 0 0"
  67.    Case 7 'Olive
  68.     s="80 80 0"
  69.    Case 8 'Green
  70.     s="0 80 0"
  71.    Case 9 'Maroon
  72.     s="80 0 0"
  73.    Case 10 'Navy
  74.     s="0 0 80"
  75.    Case 11 'Purple
  76.     s="80 0 80"
  77.    Case 12 'Gray
  78.     s="80 80 80"
  79.    Case 13 'Aqua (water to you and me...)
  80.     s="0 255 255"
  81.    Case 14 'Fuschia
  82.     s="255 0 255"
  83.    Case 15 'Silver
  84.     s="192 192 192"
  85.    Case 16 'Teal
  86.     s="0 80 80"
  87.    Case 17
  88.     v=IniReadValue(sF,sS,sV) ' modification
  89.     s=InputWindow("Type in the color values for your custom color (for example 255 255 255 would be white, 255 0 0 would be red etc.), and then click OK.",v,1)
  90.   End Select
  91.   Call IniWriteValue(sF,sS,sV,s)     ' modification
  92.   Call MsgInformatioN("The new color has been set.")
  93.   Call Logoff()
  94.  else 'Reset Color
  95.   s=RegReadValue(sp)
  96.   if IsEmpty(s)=false then
  97.    Call IniWriteValue(sF,sS,sV,s) ' modification
  98.   end if       
  99.  
  100.   Call MsgInformatioN("The default color has been restored.")
  101.   Call Logoff()
  102.  end if
  103. END SUB
  104.  
  105. SUB Plugin_Terminate
  106. END SUB
  107.